home *** CD-ROM | disk | FTP | other *** search
/ SOHO - Exploring the Sun - 2003 Update / SOHO - Exploring the Sun - 2003 Update.iso / pc / data / main.dcr / scripts_61.ls < prev    next >
Encoding:
Text File  |  2003-02-25  |  847 b   |  33 lines
  1. on DefCurs
  2.   global DefaultCursorFlag
  3.   if DefaultCursorFlag = 1 then
  4.     cursor(-1)
  5.     set DefaultCursorFlag to 0
  6.   end if
  7. end
  8.  
  9. on ClrCursorS
  10.   global DefaultCursorFlag
  11.   set DefaultCursorFlag to 1
  12.   set i to 1
  13.   repeat while i <= 120
  14.     set the cursor of sprite i to 0
  15.     set i to i + 1
  16.   end repeat
  17.   set the cursor of sprite 102 to [member "kasi", member "mask_kasi"]
  18.   set the cursor of sprite 103 to [member "kasi", member "mask_kasi"]
  19.   set the cursor of sprite 104 to [member "kasi", member "mask_kasi"]
  20.   set the cursor of sprite 106 to [member "kasi", member "mask_kasi"]
  21.   set the cursor of sprite 107 to [member "kasi", member "mask_kasi"]
  22. end
  23.  
  24. on ClrCursorsAbsolute
  25.   global DefaultCursorFlag
  26.   set DefaultCursorFlag to 1
  27.   set i to 1
  28.   repeat while i <= 120
  29.     set the cursor of sprite i to 0
  30.     set i to i + 1
  31.   end repeat
  32. end
  33.